home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd1 / GCTHEY.dxr / 00058_bottom button handlers.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  1.1 KB  |  55 lines
  1. global Hdrive, gDisc, gMovie
  2.  
  3. on song
  4.   set gMovie to Hdrive & "song_1.dir"
  5.   set the blend of sprite 33 to 100
  6.   puppetSound("SCLICK.WAV")
  7.   updateStage()
  8.   startTimer()
  9.   repeat while the timer < 10
  10.   end repeat
  11.   set the blend of sprite 33 to 0
  12.   updateStage()
  13.   go(1, gMovie)
  14. end
  15.  
  16. on study
  17.   set gMovie to Hdrive & "song_1.dir"
  18.   set the blend of sprite 34 to 100
  19.   puppetSound("SCLICK.WAV")
  20.   updateStage()
  21.   startTimer()
  22.   repeat while the timer < 10
  23.   end repeat
  24.   set the blend of sprite 34 to 0
  25.   updateStage()
  26.   go(10, gMovie)
  27. end
  28.  
  29. on main
  30.   set gDisc to "Disc 1"
  31.   set gMovie to Hdrive & "mainmen.dir"
  32.   set the blend of sprite 35 to 100
  33.   puppetSound("SCLICK.WAV")
  34.   updateStage()
  35.   startTimer()
  36.   repeat while the timer < 10
  37.   end repeat
  38.   set the blend of sprite 35 to 0
  39.   updateStage()
  40.   go("select", gMovie)
  41. end
  42.  
  43. on done
  44.   set gMovie to Hdrive & "song_1.dir"
  45.   set the blend of sprite 36 to 100
  46.   puppetSound("SCLICK.WAV")
  47.   updateStage()
  48.   startTimer()
  49.   repeat while the timer < 10
  50.   end repeat
  51.   set the blend of sprite 36 to 0
  52.   updateStage()
  53.   go(30, gMovie)
  54. end
  55.